home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side B).do / MEMORY.TEST.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  15 lines
  1. 10  GOSUB 200
  2. 60  FOR I = IO TO IS:BS =  PEEK(I): POKE (I),B%:A% =  PEEK(I): IF A% < >B%  THEN  VTAB I7: PRINT "ERROR AT"I:I7 = I7 +1
  3. 70  POKE (I),C%:A% =  PEEK(I): IF A% < >C%  THEN  VTAB I7: PRINT "ERROR AT "I:ER = 1
  4. 80  POKE I,BS: VTAB 1: HTAB 1: PRINT I: NEXT 
  5. 90  IF ER = 1  THEN  END 
  6. 100  PR# 6
  7. 200  TEXT : HOME : PRINT "THIS WILL TEST THE RAM IN YOUR APPLE": PRINT "IT SKIPS SOME AREAS DUE TO THE DOS ": PRINT "AND I/O HOOKS AND ALSO TO AVOID": PRINT "CLOBBERING THE PROGRAM ITSELF": PRINT "IT TAKES A WHILE SO IF YOU STOP IT"
  8. 210  PRINT "YOU HAVE THE OPTION OF RESTARTING": PRINT "LATER ON": PRINT : PRINT "IF ANY ERRORS ARE ENCOUNTERED": PRINT "THEY ARE LISTED": PRINT "IF EVERYTHING IS OK": PRINT "THE PROGRAM REBOOTS": PRINT "SO LEAVE A DISK IN YOUR DRIVE"
  9. 220  PRINT : FLASH : PRINT "HIT ANY KEY": GET A$: NORMAL : HOME 
  10. 400 B% = 255:IO = 3000:IS = 48000:C% = 0:I7 = 2
  11. 410  POKE 34,1
  12. 430  PRINT "RESUME OR START": GET A$: IF A$ = "S"  THEN 450
  13. 440  INPUT "WHERE";IO
  14. 450  HOME : HTAB 1: VTAB 1: PRINT "                                        "
  15. 500  RETURN